my $obj = {a => 1, b => 2};

my $num = 0;
for (0 .. 1000000) {
    $num += $obj->{a} + $obj->{b};
}

print "$num\n";
